255 POKE53280,0:POKE53281,0:POKE646,2:PRINT"[147]"
260 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
265 PRINT"[180]                                      [170]";
270 PRINT"[180]         [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]         [170]";
275 PRINT"[180]         [194]    RATE MAL!!    [194]         [170]";
280 PRINT"[180]         [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]         [170]";
285 PRINT"[180]                                      [170]";
290 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]":PRINT:PRINT:PRINT:PRINT:PRINT
295 N=7:T=0
300 DIMA(N):FORJ=1TON:A(J)=J:NEXTJ:
305 PRINT"   [156]DRUECK                     RETURN!  [144]";:INPUTS:S=S  :
310 FORI=1TON:Q=(S+3.14159265)^3:S=Q-INT(Q)
315 PRINT"[158][145]     >>>>>    ES GEHT LOS!    <<<<<     ";
320 J=INT(S*N+1):P=A(I):A(I)=A(J):A(J)=P:NEXT I
325 PRINT"[147][129]WIEVIEL FRAGEN?  HOECHSTENS: [152]";N;:INPUTM:PRINT
330 IFM>NTHEN325
335 FORI=1TOM:PRINT"[158]FRAGE NR. ";I:J=A(I):PRINT
340 IF J= 7THEN345
345 ONJ GOSUB390,425,460,495,530,565,600  :GOTO350
350 PRINT"[152]WAEHLE ANTWORT A, B, C ODER D";:INPUTY$:
355 IFZ$<>Y$THENPRINT"[147]FALSCHE ANTWORT!":GOTO365:
360 PRINT"[147]        R I C H T I G ![146]":D=D+1:PRINT
365 PRINT"[149][164][175][185][162][162][185][175][164][164][175][185][162][162][185][175][164][164][175][185][162][162][185][175][164][164][175][185][162][162][185][175][164][164][175][185][162][162][185][175][164]";
370 PRINT:PRINT:NEXTI
375 PRINT"  NA JA,        ";D;"  RICHTIGE":PRINT
380 PRINT"[155]  UND           ";M-D;"  FALSCH!":PRINT
385 PRINT" DAS GESAMTERGEBNIS=  ";D/(I-1)*100;"%":END
390 Z$="C":
395 PRINT"[154] KAESE IST ="
400 PRINT"[153]A: EIN ODEUR PAR EXCELLENCE"
405 PRINT"B: EIN PENDANT ZUM FAULEN EI"
410 PRINT"C: SYNONYM FUER 'SO EIN MIST'"
415 PRINT"D: ETWAS, DAS GEROLLT WURDE"
420 RETURN
425 Z$="B"
430 PRINT"[154] ZITRONEN SIND ="
435 PRINT"[153]A: ETWAS FALSCHE ANTIK) MUTANTEN"
440 PRINT"B: HANDELSWARE DER PECHVOEGEL"
445 PRINT"C: AUS DEM LAUF GEZOGENE PATRONEN"
450 PRINT"D: ANGEFANGENE SCHMETTERLINGE"
455 RETURN
460 Z$="D"
465 PRINT"[154] EIN 'NICHTS' IST ="
470 PRINT"[153]A: UNENDLICHKEIT ZUM 'REINFALLEN"
475 PRINT"B: 'NE FEHLERHAFTE WEIBLICHE VERWANDTE"
480 PRINT"C: KNOBLAUCH OHNE ECHTEN DUFT"
485 PRINT"D: EIN LUFTBALLON OHNE PELLE"
490 RETURN
495 Z$="B"
500 PRINT"[154] EINE KLAPPERSCHLANGE IST =":
505 PRINT"[153]A: EINE ART VOGELSCHEUCHE"
510 PRINT"B: PFERDESCHRECK IM WILDEN WESTEN"
515 PRINT"C: HANDWERKS-ZUBEHOER"
520 PRINT"D: EINE KLAPPER HINTER DER ANDEREN..."
525 RETURN
530 Z$="C"
535 PRINT"[154] NETZE SIND = "
540 PRINT"[153]A: WAS ZUM 'UEBERZIEHEN'"
545 PRINT"B: PRODUKTE VON SPINNERN"
550 PRINT"C: ZUSAMMENGEKNOTETE LOECHER"
555 PRINT"D: VERKLEIDETE FALLSTRICKE"
560 RETURN
565 Z$="C"
570 PRINT"[154] KNETE IST = "
575 PRINT"[153]A: MASSAGE OHNE 'N'"
580 PRINT"B: WAS MAN NIE GENUG HAT"
585 PRINT"C: GEHIRN-SURROGAT"
590 PRINT"D: SCHOEPFUNGS-GRUNDSTOFF"
595 RETURN:
600 Z$="C"
605 PRINT"[154] EIN MAGNET IST ="
610 PRINT"[153]A: EIN ZUGPFERD-VERWANDTER"
615 PRINT"B: TEIL DES NORDPOLS"
620 PRINT"C: 'MAG NICHT' (Z. B. IN BAYERN)"
625 PRINT"D: FAST EIN MAECHTIGER MANN"
630 RETURN